30 REM ********************************
31 REM *           J  O  Y            *
32 REM ********************************
33 REM * ERGAENZUNG ZU SIMON'S BASIC  *
34 REM * FORMAT: dQ N                *
35 REM * STELLT dQSTICKPORT EIN      *
36 REM * > BEISPIEL: dQ1 (FUER PORT1)*
37 REM *             dQ2 (FUER PORT2)*
38 REM ********************************
39 K=0:PRINT" J O Y [146]      ?CHECKSUM ";
40 FORI=$BFE3 TO $BFF1:READ J:POKE I,J:K=K+J:NEXT
41 DATA32,115,,32,6,129,138,41,1,141
42 DATA213,136,76,42,130
43 POKE$88DA,111:POKE$88FC,16
44 POKE$8764,226:POKE$8765,191
45 IFK=1232THENPRINT"OK":dG:PRINT"ERROR"